home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 12 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  232 b   |  15 lines
  1. 10 ;RD TRK 12
  2. 20 CLRBUF LDA #$00; CLEAR GCR BUFFERS
  3. 30 LDY #$00
  4. 40 CLR STA HEX,Y
  5. 50 STA HEX+256,Y
  6. 60 STA GCR1,Y
  7. 70 STA GCR1+256,Y
  8. 80 STA GCR2,Y
  9. 90 STA GCR2+256,Y
  10. 95 STA GCR3,Y
  11. 110 INY
  12. 120 BNE CLR
  13. 130 RTS
  14. 140 .FILE RD TRK 13
  15.